home *** CD-ROM | disk | FTP | other *** search
- @ECHO OFF
- IF '%1'=='' GOTO Help
- IF NOT '%Z%'=='' GOTO Used
- IF NOT '%N%'=='' GOTO Used
- MD XOOXOOX.$$$
- CD XOOXOOX.$$$
- REM > %1
- :loop
- SET Z=%Z%■
- REN ???????? %Z%????????
- IF EXIST %Z% GOTO okay
- GOTO loop
- :okay
- IF %Z%==■ SET N=1
- IF %Z%==■■ SET N=2
- IF %Z%==■■■ SET N=3
- IF %Z%==■■■■ SET N=4
- IF %Z%==■■■■■ SET N=5
- IF %Z%==■■■■■■ SET N=6
- IF %Z%==■■■■■■■ SET N=7
- IF %Z%==■■■■■■■■ SET N=8
- DEL %Z%
- CD..
- RD XOOXOOX.$$$
- SET Z=
- GOTO exit
- :Used
- ECHO Environment string 'Z' or 'N' already in use...
- GOTO Exit
- :Help
- ECHO Usage: GetLen string
- :exit